### EXERCCIO 1 - OLIDAN POCIUS
## BASTA MUDAR O DIRETORIO?
# Q1
getwd()#[1] "C:/Users/OPocius/Documents"
setwd("C:/Users/OPocius/Desktop/RAULAS/Aula1")
getwd()# ok

# Q2 - No.  preciso salvar e verificar a presena dos objetos e arquivos
save.image()
ls()
dir()

### UM COMANDO PERIGOSO
## Q1
rm(list=ls())#apaga tudo
ls()# verifica se apagou
## Q2
# Mantendo uma cpia separada do cdigo e da rea de trabalho

### REMOCAO COM CRITERIO
## Q1
dir()
load("bichos.rdata")
ls()
save.image()
## Q2
ls()#[1] "anfibios"  "aves"      "mamiferos" "temp1"     "temp2"     "temp3"  
ls(pattern="temp")#[1] "temp1" "temp2" "temp3"
rm(list=ls(pattern="temp"))
ls()#[1] "anfibios"  "aves"      "mamiferos"

### CLASSES DE OBJETOS
##Q1
letters #[1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u"
#[22] "v" "w" "x" "y" "z"
LETTERS #[1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U"
#[22] "V" "W" "X" "Y" "Z"
##Q2
class(letters)#[1] "character"
class(LETTERS)#[1] "character"
##Q3
is.factor(letters)#[1] FALSE
is.factor(LETTERS)#[1] FALSE
letters.fator=as.factor(letters)
LETTERS.fator=as.factor(LETTERS)
is.factor(letters.fator)#[1] TRUE
is.factor(LETTERS.fator)#[1] TRUE

### OBJETOS DE DATA
## Q1
hoje<-Sys.Date()
hoje            # [1] "2011-03-28"
class(hoje)    #[1] "Date"sys
## Q2
copa.70<-"1970/07/21" 
class(copa.70)     #[1] "character"
copa.70<-as.Date(copa.70)
class(copa.70)    #[1] "Date"
hoje-copa.70     #Time difference of 14860 days
## Q3
hoje + 43 #[1] "2011-05-10"


